home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / AD.BAS (.txt) next >
Encoding:
GW-BASIC  |  1983-07-02  |  494 b   |  10 lines
  1. 5  KEY OFF:FOR I= 1 TO 10:KEY I,"":NEXT
  2. 10  CLS:LOCATE  5,27:COLOR 0,7:PRINT SPACE$(26):LOCATE  6,27:PRINT SPACE$(26)
  3. 20  LOCATE  7,27:PRINT SPACE$(12);"THE";SPACE$(11)
  4. 30  LOCATE 8,27:PRINT SPACE$(7);"ADDRESS BOOK";SPACE$(7):LOCATE 9,27:PRINT SPACE$(26):LOCATE 10,27:PRINT SPACE$(26)
  5. 40  COLOR 15,0:LOCATE 13,26:PRINT "INTEGRATED SOFTWARE SYSTEMS ":LOCATE 15,31:PRINT "BALTIMORE MARYLAND":COLOR 7,0
  6. 50  LOCATE 18,18:PRINT " (C) Copyright 1983  E. L. Loh and R. L. Caret"
  7. 60  COLOR 15,0:COLOR 0,7:LOCATE 22,28:PRINT "PLEASE WAIT, LOADING"
  8. 70  LOCATE 25,10:COLOR 1,7,0:PRINT "INTEGRATED SOFTWARE SYSTEMS";SPACE$(15);"SERIAL NUMBER: ";SNN$:COLOR 7,0
  9. 80  RUN"ADMAIN.BAS"
  10.